home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / PASCAL / 1093.ZIP / MUSIC.ARC / WILLTELL.PAS < prev   
Pascal/Delphi Source File  |  1988-01-03  |  6KB  |  136 lines
  1. program willtell;       {Turbo Pascal 4.0}
  2.  
  3. {Program to play William Tell overture.  Adapted from WILLTELL.BAS -
  4.  a well-known BASICA program.   There are a few wrong notes in it
  5.  which have not been fixed.  Converted by Ted Lassagne, Compuserve
  6.  70325,206.   Uses the unit Music.tpu}
  7.  
  8. uses Music, CRT;
  9.  
  10. Begin
  11.     clrscr;
  12.     gotoxy(21, 12);
  13.     write('Presenting: THE WILLIAM TELL OVERTURE!');
  14.     gotoxy(1,24);
  15.  
  16.     play ('mbl16t200');
  17.  
  18.     {Intro}
  19.  
  20.     play ('o2mnb4p8msbbmnb4p8msbbb8g#8');
  21.     play ('e8g#8b8g#8b8o3e8o2b8g#8e8g#8');
  22.     play ('b8g#8b8o3e8o2mnb4p8msbbmnb4');
  23.     play ('p8msbbmnb4p8msbbmnb4p8msbb');
  24.     play ('b8bbb8b8b8bbb8b8b8bb');
  25.     play ('b8b8b8bbb8b8mlb2');
  26.     play ('b2b8p8p4p4');
  27.  
  28.     {First theme}
  29.  
  30.     play ('p8mso1bbb8bbb8bbo2e8f#8g#8o1bb');
  31.     play ('b8bbo2e8g#g#f#8d#8o1b8bbb8bb');
  32.     play ('b8bbo2e8f#8g#8eg#mlb4bmsag#f#');
  33.     play ('e8g#8e8o3bbb8bbb8bbo4e8f#8');
  34.     play ('g#8o3bbb8bbo4e8g#g#f#8d#8o3b8bb');
  35.     play ('b8bbb8bbo4e8f#8g#8mleg#b4');
  36.     play ('bag#f#mse8g#8e8');
  37.  
  38.     {Secondary theme}
  39.  
  40.     play ('o3g#g#g#8g#g#g#8g#g#');
  41.     play ('g#8o4c#8o3g#8o4c#8o3g#8o4c#8o3g#8f#8e8d#8');
  42.     play ('c#8g#g#g#8g#g#g#8g#g#g#8o4c#8o3g#8o4c#8');
  43.     play ('o3g#8o4c#8o3b8a#8b8a#8b8g#g#g#8g#g#');
  44.     play ('g#8g#g#g#8o4c#8o3g#8o4c#8o3g#8o4c#8o3g#8f#8');
  45.     play ('e8d#8c#8g#g#g#8g#g#g#8g#g#g#8o4c#8');
  46.     play ('o3g#8o4c#8o3g#8o4c#8o3b8a#8b8o2bbb8f#f#');
  47.     play ('f#8f#f#f#8g#8a8f#4mna8msg#8mne4');
  48.     play ('msg#8f#8f#8f#8o3f#f#f#8f#f#f#8g#8');
  49.     play ('a8mnf#4msa8g#8mne4msg#8f#8');
  50.  
  51.     {First theme again}
  52.  
  53.     play ('o2bbb8o1bbb8bbb8bbo2mne8f#8g#8o1bb');
  54.     play ('b8bbo2e8g#g#f#8d#8o1b8bbb8bb');
  55.     play ('b8bbo2e8f#8g#8eg#mlb4mnbag#f#');
  56.     play ('e8g#8e8o3bbb8bbb8bbo4e8f#8');
  57.     play ('g#8o3bbb8bbo4e8g#g#f#8d#8o3b8bb');
  58.     play ('b8bbb8bbo4e8f#8g#8mleg#mlb4');
  59.     play ('mnbag#f#mne8g#8e8');
  60.  
  61.     play ('o3mle56f56g56a56b56o4c56d56mne8eee8e8g#4.');
  62.     play ('f#8e8d#8e8c#8mso3bo4c#o3bo4c#o3b');
  63.     play ('o4c#d#eo3abababo4c#d#o3g#ag#ag#abo4c#o3f#');
  64.     play ('g#f#g#f#g#f#g#f#g#f#d#o2bo3mlbo4c#d#e8d#8e8');
  65.     play ('c#8o3msbo4c#o3bo4c#o3bo4c#d#eo3abababo4c#d#o3g#');
  66.     play ('ag#ag#abo4c#o3f#g#f#g#f#af#emne8p8mlc#4');
  67.     play ('mnc#o2cmso3c#o2co3d#c#o2baag#ec#c#c#c#c#e');
  68.     play ('d#o1cg#g#g#g#g#g#o2c#eg#o3c#c#c#c#c#o2co3c#o2co3d#');
  69.     play ('c#o2baag#ec#c#c#c#c#ed#o1cg#g#g#g#g#mng#');
  70.     play ('o2c#eg#o3msc#ed#c#d#o2cg#g#g#o3g#ec#d#o2cg#g#g#');
  71.     play ('o3g#ec#d#o2bg#g#a#gd#d#g#gg#gg#ag#f#e');
  72.     play ('o1ba#bo2eo1bo2f#o1bo2g#ed#eg#eaf#bo3g#f#ed#');
  73.     play ('f#ec#o2bo3c#o2bo3c#d#ef#g#o2ababo3c#d#ef#o2g#');
  74.     play ('ag#aco3c#d#eo2f#g#f#g#f#g#f#g#f#g#f#d#o1b');
  75.     play ('co2c#d#eo1ba#bo2eo1bo2f#o1bo2g#ed#eg#eaf#b');
  76.     play ('o3g#f#ed#f#ec#o2bo3c#o2bo3c#d#ef#g#o2ababo3c#');
  77.     play ('d#ef#o2g#ag#abo3c#d#eo2f#o3c#o2co3c#d#c#o2af#mne');
  78.     play ('o3mlef#g#abo4c#d#mne8mseee8e8g#4.');
  79.     play ('msf8mse8d#8e8c#8o3bo4c#o3bo4c#o3bo4c#d#eo3a');
  80.     play ('bababo4c#d#o3g#ag#ag#abo4c#o3f#g#f#g#f#');
  81.     play ('g#f#g#f#g#f#d#o2bo3mlbo4c#d#mne8eee8e8g#4.');
  82.     play ('msf#8e8d#8e8c#8o3bo4c#o3bo4c#o3b');
  83.     play ('o4c#d#eo3abababo4c#d#o3g#ag#ag#abo4c#o3f#');
  84.     play ('g#f#g#f#ag#f#e8o2b8o3e8g#g#g#8mng#g#g#8');
  85.     play ('g#g#g#8o4c#8o3g#8o4c#8o3g#8o4c#8o3g#8f#8e8');
  86.     play ('d#8c#8g#g#g#8g#g#g#8g#g#g#8o4c#8o3g#8');
  87.     play ('o4c#8o3g#8o4c#8o3b8a#8b8a#8b8g#g#g#8');
  88.     play ('g#g#g#8g#g#g#8o4c#8o3g#8o4c#8o3g#8o4c#8o3g#8');
  89.     play ('f#8e8d#8c#8g#g#g#8g#g#g#8g#g#g#8');
  90.     play ('o4c#8o3g#8o4c#8o3g#8o4c#8o3b8a#8b8a#8b8');
  91.     play ('o2f#f#f#8f#f#f#8g#8a8f#4a8g#8');
  92.     play ('e4g#8f#8o0b8o1b8o2f#f#f#8f#f#f#8');
  93.     play ('g#8a8f#4a8g#8e4g#8f#8');
  94.     play ('bbb8o1bbb8bbb8bbo2e8f#8g#8');
  95.     play ('o1bbb8bbo2e8g#g#f#8d#8o1b8bbb8');
  96.     play ('bbb8bbo2e8f#8g#8eg#mlb4mnb');
  97.     play ('ag#f#e8o1b8o2e8o3bbb8bbb8bbo4e8');
  98.     play ('f#8g#8o3bbb8bbo4e8g#g#f#8d#8o3b8');
  99.     play ('bbb8bbb8bbo4e8f#8g#8o3eg#mlb4');
  100.     play ('mnbag#f#mlef#g#mnamlg#abo4mnc#mlo3bo4c#d#mnemld#');
  101.     play ('ef#mng#ao3bo4ao3bo4ao3bo4ao3bo4ao3bo4ao3bo4ao3bo4ao3bmle');
  102.     play ('f#g#mnamlg#abmno4c#mlo3bo4c#d#mnemld#ef#mng#ao3bo4ao3bo4a');
  103.     play ('o3bo4ao3bo4ao3bo4ao3bo4ao3bo4ao3bp16mlg#o4g#o3mng#p16mld#o4d#o3' +
  104.           'mnd#p16');
  105.     play ('mleo4eo3mnep16mlao4ao3mnap16mlg#o4g#o3mng#p16mld#o4d#o3mnd#p16' +
  106.           'mleo4eo3mnep16');
  107.     play ('mlao4ao3mnao4go3go4go3go4go3go4go3go4msg8e8c8e8o4mng#');
  108.     play ('o3g#o4g#o3g#o4g#o3g#o4g#o3g#o4msg#8e8o3b8o4e8mng#o3g#o4g#o3g#o4g#');
  109.     play ('o3g#o4g#o3g#o4msg#8f8c#8f8mna#o3a#o4a#o3a#o4a#o3a#o4a#o3a#o4msa#8');
  110.     play ('g8e8g8b8p16mna#p16ap16g#p16f#p16ep16');
  111.     play ('d#p16c#p16o3bp16a#p16ap16g#p16f#p16ep16d#p16f#mle');
  112.     play ('f#g#mnamlg#abmno4c#o3mlbo4c#d#mnemld#ef#mng#ao3bo4ao3bo4a');
  113.     play ('o3bo4ao3bo4ao3bo4ao3bo4ao3bo4ao3bmlef#g#mnamlg#abmno4c#o3mlb');
  114.     play ('o4c#d#mnemld#ef#mng#ao3bo4ao3bo4ao3bo4ao3bo4ao3bo4ao3bo4a');
  115.     play ('o3bo4ao3bp16mlg#o4g#o3mng#p16mld#o4d#o3mnd#p16mleo4eo3mnep16' +
  116.           'mlao4ao3mnap16');
  117.     play ('mlg#o4g#o3mng#p16mld#o4d#o3mnd#p16mleo4eo3mnep16mlao4ao3mna' +
  118.           'o4go3go4go3go4g');
  119.     play ('o3go4go3go4g8e8c8e8g#o3g#o4g#o3g#o4g#o3g#o4g#o3g#o4g#8');
  120.     play ('e8o3b8o4e8g#o3g#o4g#o3g#o4g#o3g#o4g#o3g#o4msg#8mnf8c#8');
  121.     play ('f8a#o3a#o4a#o3a#o4a#o3a#o4a#o3a#o4a#8g8e8g8b8');
  122.     play ('p16a#p16ap16g#p16f#p16ep16d#p16c#p16o3bp16a#p16');
  123.     play ('ap16g#p16f#p16ep16d#p16fmled#ed#mne8bbb8');
  124.     play ('bbb8bbo4e8f#8g#8o3bbb8bbb8');
  125.     play ('bbo4g#8a8b8p8e8f#8g#8p8o3g#8');
  126.     play ('a8b8p8p2o2bco3c#dd#');
  127.     play ('eff#gg#aa#bco4c#d#ed#f#d#ed#f#d#e');
  128.     play ('d#f#d#ed#f#d#ed#f#d#ed#f#d#ed#f#d#e');
  129.     play ('d#f#d#e8eo3eo4eo3eo4eo3eo4e8o3bo2bo3bo2bo3bo2bo3b8');
  130.     play ('g#o2g#o3g#o2g#o3g#o2g#o3g8eo2eo3eo2eo3eo2eo3e8eee8');
  131.     play ('e8e8o2bbb8b8b8g#g#g#8g#8g#8');
  132.     play ('eee8e8e8o1b8o2e8o1b8o2g#8e8b8');
  133.     play ('g#8o3e8o2b8o3e8o2b8o3g#8e8b8g#8o4e4');
  134.     play ('p8eee8e8e8e8e4p8.');
  135.     play ('ee4p8.o2ee2');
  136. end.